Міністерство освіти і науки України Національний університет "Львівська Політехніка" І К Т А М Кафедра ЕОМ ЗВІТ Про виконання роботи з дисципліни _"Основи алгоритмізації та програмування”__ МЕТА: Метою цієї роботи було засвоєння розділових знаків у мові Паскаль. Завдання полягало в тому, щоб проставити розділові знаки, але при умові що ця програма (в даному випадку календар) повинна працювати. Опис програми: program day; var correctdate:boolean; d, m, y:integer; procedure InputDate (var d, m, y:integer; var correctly: boolean); begin write ('dd,mm,yyyy'); readln (d,m,y); correctly:= (d>=1) and (d<=31) and (m>=1) and (m<=12) and (y>=1582) and (y<=4903); end; procedure WriteDay (d, m, y:integer); const days_of_week: array[0..6] of string[3] =('sun', 'mon', 'tue', 'wed', 'thu', 'fri', 'sat'); var c,w:integer; begin if m<3 then begin m:=m+10; y:=y-1 end else m:=m-2; c:=y div 100; y:=y mod 100; w:=(trunc (2.6*m-0.2) + d + y div 4 + y + c div 4 - 2*c) mod 7; if w<0 then w:=w+7; if m=12 then w:=w+1; writeln (days_of_week[w]) end; begin repeat InputDate (d, m, y, correctdate); if correctdate then writeDay (d, m, y) until not correctdate end.